0 CLR
5 REM COPYRIGHT 1991 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
10 POKE53280,.:POKE53281,.:PRINT"[147]";:PRINTTAB(13)"[167] [205][207][194] [205]OVER! [146][165]
20 [129]X[178]1[164]1000:[130]:V[178]53248:B1[178]2040:B2[178]192:[153]"LOAD";:[141]40
30 [141]850:[141]90:[141]1330:[137]30
40 C(1)[178].:C(2)[178]1:[129]X[178].[164]7:S(X)[178].:[129]Y[178]1[164]2:CO(X,Y)[178]V[170](X[172]2[170]C(Y)):[130]Y,X
50 SV[178]1:BC[178].:CC[178]1:S(.)[178]1:AS[178].:[129]X[178].[164]7:[151](B1[170]X),(B2[170]X):[130]
60 SP$[178]"                                        ":[151]V[170]21,1:[151]V[170]16,.
70 [129]X[178].[164]7:ID$(X)[178]" ":[130]
80 [151]V[170]21,1:[151]V[170]28,.:[151]V[170]23,.:[151]V[170]29,.:[142]
90 [153]"(null)(null)PEEKCLOSE(null)OVER!WAIT";:[139]CO[178]1[167][153]"ONON          (null)ASCASC":[142]
110 [153]:[129]X[178].[164]7:[139]AS[178]X[167][153]"";
120 [139]S(X)[178]1[167][153]ID$(X);X;":";[196]([194](CO(X,1)))" /";[196]([194](CO(X,2)));
130 [139]S(X)[178]1[167][153]"WAIT     "
135 [153]"WAIT";:[130]:[142]
140 BC[178]BC[170]1:[139]BC[178]16[167]BC[178].
150 [139]BC[178]CC[167]BC[178]BC[170]1
160 [151]53280,BC:[151]53281,BC:[142]
170 CC[178]CC[170]1:[139]CC[178]16[167]CC[178].
180 [139]CC[178]BC[167]CC[178]CC[170]1
190 [151]646,CC:[142]
200 MSG$[178]"(null)EW STEP VALUE":[141]820:[133]A$:SV[178][197](A$):[139]SV[179][178].[167]SV[178]1
210 [142]
220 MSG$[178]"ASCILL SPRITE #"[170][196](AS)[170]": [Y/N]":[141]820:[141]870
230 [139]A$[178]"Y"[167]250
240 [142]
250 SP[178]([194](B1[170]AS))[172]64:[129]X[178].[164]63:[151]SP[170]X,255:[130]:[142]
260 [153]" WAITCMD";:[161]A$:[139]A$[178]""[176]A$[178]"ON"[176]A$[178]""[176]A$[178]"CMD"[167]320
270 [139]A$[178]""[167][153]" ";:[153]A$;:[137]260
280 [139]A$[178][199](13)[167]310
290 [139]A$[178][199](141)[167][153]" ";:[142]
300 [153]A$;:[137]260
310 [153]" ";:[153]A$;:[137]260
320 [153]" CMD";:[153]A$;:[137]260
330 MSG$[178]"LENHANGE ACTIVE SPRITE'S POINTER TO":[141]820:[133]A$
340 A[178][197](A$):[139]A[179][178].[167][142]
350 [151]B1[170]AS,A:[142]
360 MSG$[178]"LENHANGE TO SPRITE # [0-7]":[141]820:[141]870:A[178][197](A$)
370 [139]A[177]7[167]A[178]AS
380 AS[178]A:S(AS)[178]1:[151]V[170]21,[194](V[170]21)[176](2[174]AS):[142]
390 MSG$[178]"RIGHT$NPUT (null) CO-ORDINATE":[141]820:[133]I$:C1[178][197](I$)
391 [139]C1[179]0[176]C1[177]255[167][142]
400 [141]850:MSG$[178]"RIGHT$NPUT (null) CO-ORDINATE":[141]820:[133]I$:C2[178][197](I$)
410 [139]C2[179]0[176]C2[177]255[167][142]
420 [151]CO(AS,1),C1:[151]CO(AS,2),C2:[142]
650 [151]V[170]21,[194](V[170]21)[176](2[174]AS):[142]
660 [151]V[170]21,[194](V[170]21)[175](255[171]2[174]AS):[142]
670 [129]X[178].[164]7:[151]B1[170]X,B2[170]X:[142]
680 MV[178][194](CO(AS,1)):[139]MV[171]SV[179]0[175]XP(AS)[178]1[167]710
690 [139]MV[171]SV[179]0[167][142]
700 MV[178]MV[171]SV:[151](CO(AS,1)),MV:[142]
710 [151](V[170]16),[194](V[170]16)[175](255[171](2[174]AS)):ID$(AS)[178]" ":MV[178](MV[171]SV)[170]255:XP(S)[178].
720 [151](CO(AS,1)),MV:[142]
730 MV[178][194](CO(AS,1)):[139]MV[170]SV[177]255[175]XP(AS)[178].[167]760
740 [139]MV[170]SV[177]255[167][142]
750 MV[178]MV[170]SV:[151](CO(AS,1)),MV:[142]
760 [151](V[170]16),[194](V[170]16)[176](2[174]AS):MV[178]MV[170]SV:MV[178]MV[171]255:[151]CO((AS,1)),MV:XP(AS)[178]1
770 ID$(AS)[178]"*":[142]
780 MV[178][194](CO(AS,2)):[139]MV[171]SV[179].[167][142]
790 MV[178]MV[171]SV:[151](CO(AS,2)),MV:[142]
800 MV[178][194](CO(AS,2)):[139]MV[170]SV[177]255[167][142]
810 MV[178]MV[170]SV:[151](CO(AS,2)),MV:[142]
820 [153]"";SP$;SP$;
830 [129]X[178]1[164]40:[153]"TAN";:[130]
840 [153]"";MSG$;:[142]
850 [153]"";SP$;SP$;SP$;SP$
860 [153]"";:[142]
870 [151]198,.:[146]198,1:[161]A$:[142]
880 SC[178]([194](V[170]39[170]AS)):SC[178]SC[170]1:[139]SC[178]256[167]SC[178].
890 [151]((V[170]39)[170]AS),SC:[142]
900 [139]MC(AS)[178].[167]MC(AS)[178]1:[151]V[170]28,[194](V[170]28)[176](2[174]AS):[142]
910 [139]MC(AS)[178]1[167]MC(AS)[178].:[151]V[170]28,[194](V[170]28)[175](255[171]2[174]AS):[142]
920 [139]XE(AS)[178].[167]XE(AS)[178]1:[151]V[170]29,[194](V[170]29)[176](2[174]AS):[142]
930 [139]XE(AS)[178]1[167]XE(AS)[178].:[151]V[170]29,[194](V[170]29)[175](255[171]2[174]AS):[142]
940 [139]YE(AS)[178].[167]YE(AS)[178]1:[151]V[170]23,[194](V[170]23)[176](2[174]AS):[142]
950 [139]YE(AS)[178]1[167]YE(AS)[178].:[151]V[170]23,[194](V[170]23)[175](255[171]2[174]AS):[142]
960 [139]PR(AS)[178].[167]PR(AS)[178]1:[151]V[170]27,[194](V[170]27)[176](2[174]AS):[142]
965 [139]PR(AS)[178]1[167]PR(AS)[178].:[151]V[170]27,[194](V[170]27)[175](255[171]2[174]AS):[142]
970 [139]CO[178].[167]CO[178]1:[142]
980 [139]CO[178]1[167]CO[178].:[142]
990 [129]X[178].[164]7:[129]Y[178]1[164]2:[151]CO(X,Y),.:[130]Y,X:[142]
1000 MC[178][194](V[170]37):MC[178]MC[170]1:[139]MC[177]256[167]MC[178].
1010 [151]V[170]37,MC:[142]
1020 MC[178][194](V[170]38):MC[178]MC[170]1:[139]MC[177]256[167]MC[178].
1030 [151]V[170]38,MC:[142]
1040 MSG$[178]"(null)OCATION TO POKE":[141]820:[133]A$:LO[178][197](A$)
1050 [139]LO[179][178].[176]LO[177]65535[167][142]
1060 [141]850:MSG$[178]"(null)UMBER TO POKE":[141]820:[133]A$:NU[178][197](A$)
1070 [139]NU[179]0[176]NU[177]255[167][142]
1080 [151]LO,NU:[142]
1090 [139]AO[178].[167]AO[178]1:[151]V[170]21,255:[129]X[178].[164]7:S(X)[178]1:[130]:[142]
1100 [139]AO[178]1[167]AO[178].:[151]V[170]21,.:[129]X[178].[164]7:S(X)[178]0:[130]:[153]"LOAD":[142]
1110 [129]X[178].[164]7:[151]CO(X,1),155:[151]CO(X,2),130:[130]:[142]
1120 MSG$[178]"(null)CREEN OR (null)RINTER?":[141]820:[146]198,1:[161]A$
1121 [139]A$[179][177]"P"[167]S[178]1
1122 [159]4,(4[171]S),7
1123 PV[178][194](V[170]21):[151]V[170]21,.:[152]4,"LOAD(null)OCATION","(null)OKE","(null)BJECTIVE"
1130 [152]4,V[170]21,PV,"(null)URNS ON SPRITES
1140 FORX=.TO7:IFS(X)=.THENNEXT:GOTO1160
1150 PRINT#4,B1+X,PEEK(B1+X),"[211]PRITE"X"[208]OINTER":NEXT
1160 FORX=.TO7:IFS(X)=.THENNEXT:GOTO1180
1170 PRINT#4,(PEEK(B1+X))*64,"DATA","[211]PRITE"X"DATA":NEXT
1180 IFSTHENPK$="[208]RESS [193]NY [203]EY TO [195]ONTINUE":PRINTPK$:GOSUB870
1190 IFSTHENPRINT"[147][204]OCATION","[208]OKE","[207]BJECTIVE
1200 [129]X[178].[164]7:[139]S(X)[178].[167][130]:[137]1220
1210 [152]4,(V[170]39[170]X),[194](V[170]39[170]X),"(null)PRITE"X"LENOLOR":[130]
1220 [139][194](V[170]28)[167]1250
1230 [152]4,(V[170]28),[194](V[170]28),"(null)ET (null)ULTICOLOR (null)ODE
1240 PRINT#4,(V+37),PEEK(V+37),"[205]ULTICOLOR 1"
1245 PRINT#4,V+38,PEEK(V+38),"[205]ULTICOLOR 2
1250 [152]4,V[170]29,[194](V[170]29),"(null)PRITES (null) EXPAND
1260 PRINT#4,V+23,PEEK(V+23),"[211]PRITES [217] EXPAND
1270 [139]S[167][153]PK$:[141]870
1280 [139]S[167][153]"LOAD(null)OCATION","(null)OKE","(null)BJECTIVE
1290 FORX=.TO7:IFS(X)=.THENNEXT:GOTO1310
1300 FORY=1TO2:PRINT#4,CO(X,Y),PEEK(CO(X,Y)),"[211]PRITE"X"[208]OSITION":NEXTY,X
1310 IFPEEK(V+16)THENPRINT#4,V+16,PEEK(V+16),"[205][211][194][160][216][160][208]OSITION
1320 [153]PK$;:[146]198,1:[151]198,0:[153]"LOAD":[128]
1330 C$[178]"ABCEFHPST+-*^_CMDONINPUTDIMREADLETLOAD <>=DI"
1339 CN[178].
1340 [161]A$:JOY[178][168][194](56320)[175]15:[139]JOY[167][141]3000
1345 [139]A$[179][177]""[167][137]1350
1347 [137]1340
1350 [129]X[178]1[164]30:[139]CN[167]X[178]30:[130]:[137]1380
1360 [139]A$[178][202](C$,X,1)[167]CN[178]X
1370 [130]:[137]1340
1380 [145]CN[137]360,140,170,1120,220,2000,330,200,260,650,660,1090,1110,1040
1390 [145]CN[171]14[137]680,730,780,800,900,920,940,990,670,880,1020,1000,960,970,390
1400 [137]1340
2000 SO[178][194](V[170]21):[151]V[170]21,0
2005 [153]"LOAD(null)(null)PEEKCLOSE(null)OVER!WAIT LEFT$ELP (null)CREEN         1 OF 2   "
2010 [153]"ATN","LENHANGE ACTIVE SPRITE
2020 PRINT"[194]","[195]HANGE BACKGROUND COLOR
2030 [153]"LEN","LENHANGE CHARACTER COLOR
2040 PRINT"[196]","[195]HART DISPLAY ON/OFF
2050 [153]"VAL","VALXIT PROGRAM/VIEW POKES
2060 PRINT"[198]","[198]ILL ACTIVE SPRITE
2070 [153]"LEFT$","LEFT$ELP SCREENS
2075 PRINT"[201]","[201]NPUT CO-ORDINATES
2080 [153]"(null)","(null)PRITE POINTER
2090 PRINT"[211]","[211]ET STEP VALUE
2100 [153]"(null)","(null)YPE ON SCREEN
2110 PRINTSP$;SP$;SP$;"[208]RESS ANY KEY":POKE198,0:WAIT198,1
2200 PRINT"[147][205][207][194][160][205]OVER![146] [200]ELP [211]CREEN         2 OF 2   "
2210 PRINT"=","[211]PRITE PRIORITY TOGGLE
2220 [153]"+","ATNCTIVE SPRITE ON
2230 PRINT"-","[193]CTIVE SPRITE OFF
2240 [153]"*","ATNLL SPRITES ON/OFF
2250 PRINT"^","[195]ENTER SPRITES ONSCREEN
2260 [153]"<","(null)ET MULTICOLOR 1
2270 PRINT">","[211]ET MULTICOLOR 2
2280 [153]"_","STR$IRECT POKES
2290 PRINT"[198]1","[205]ULTICOLOR TOGGLE
2300 [153]"ASC3","(null) EXPANSION TOGGLE
2310 PRINT"[198]5","[217] EXPANSION TOGGLE
2320 [153]"ASC7","(null)ESET SPRITE POSITIONS
2330 PRINT"[195][204][210]","[210]ESET SPRITE POINTERS
2340 [153]"LEN(null)(null)(null) KEYS","(null)OVE SPRITE
2350 PRINT"[211][208][193][195][197][194][193][210]","[211]PRITE COLOR
2360 [153]SP$;SP$;SP$;"(null)RESS ANY KEY":[151]198,0:[146]198,1:[151]V[170]21,SO
2370 [153]"LOAD";:[142]
3000 [139]JOY[178]1[167]A$[178]"ON":[142]
3010 [139]JOY[178]2[167]A$[178]"":[142]
3020 [139]JOY[178]4[167]A$[178]"CMD":[142]
3030 [139]JOY[178]8[167]A$[178]"":[142]
3040 [142]